home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2008 February / PCWFEB08.iso / Software / Resources / Utilities / ReNamer 4.10 / ReNamer.exe / {app} / Scripts / Date and Time.pas next >
Encoding:
Pascal/Delphi Source File  |  2006-06-12  |  217 b   |  9 lines
  1. var
  2.   DateTime: TDateTime;
  3.  
  4. begin
  5.   DateTime := FileTimeModified(FilePath);
  6.   FileName := WideExtractBaseName(FileName) +
  7.     FormatDateTime(' (dd-mmm-yyyy)', DateTime) +
  8.     WideExtractFileExt(FileName);
  9. end.